home *** CD-ROM | disk | FTP | other *** search
/ westlife Cardz: Kian / westlife: Kian.iso / pc / slide.dxr / Internal_2_Sliding Puzzle Sprite Behavior.ls < prev    next >
Encoding:
Text File  |  2000-10-23  |  871 b   |  42 lines
  1. property pNewLoc, pMode
  2.  
  3. on beginSprite me
  4.   sprite(me.spriteNum).cursor = 280
  5.   pMode = #normal
  6. end
  7.  
  8. on mouseUp me
  9.   sendSprite(0, #clickPuzzle, me.spriteNum)
  10. end
  11.  
  12. on changeLoc me, newLoc
  13.   pNewLoc = newLoc
  14.   pMode = #animate
  15. end
  16.  
  17. on exitFrame me
  18.   if pMode = #animate then
  19.     curloc = sprite(me.spriteNum).loc
  20.     if curloc.locH < pNewLoc.locH then
  21.       curloc = curloc + point(4, 0)
  22.     else
  23.       if curloc.locH > pNewLoc.locH then
  24.         curloc = curloc - point(4, 0)
  25.       else
  26.         if curloc.locV < pNewLoc.locV then
  27.           curloc = curloc + point(0, 4)
  28.         else
  29.           if curloc.locV > pNewLoc.locV then
  30.             curloc = curloc - point(0, 4)
  31.           end if
  32.         end if
  33.       end if
  34.     end if
  35.     sprite(me.spriteNum).loc = curloc
  36.     if curloc = pNewLoc then
  37.       sendSprite(0, #resetMode)
  38.       pMode = #normal
  39.     end if
  40.   end if
  41. end
  42.